home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 23 / AMIGAplus Sonderheft 23 (2000)(Falke)(DE)[!].iso / Tools / Text-Viewer / MSWordView / mswordview_src / gateway / bugreport.cgi next >
Encoding:
Text File  |  1999-11-06  |  998 b   |  54 lines
  1. #!/usr/bin/perl
  2.  
  3. print "Content-type:text/html\n\n";
  4.  
  5. require ("cgi-lib.pl");
  6. &ReadParse;
  7.  
  8. if ($in{'name'})
  9. {
  10.   &print_web_page;
  11.   &print_file;
  12. }
  13. else
  14. {
  15.   &print_error_page;
  16. }
  17.  
  18. exit;
  19.  
  20. sub print_error_page
  21. {
  22.   print "<html>\n";
  23.   print "<body>\n";
  24.   print "There was an error in submitting this bug report\n, sorry\n";
  25.   print "</body>\n";
  26.   print "</html>\n"; 
  27. }
  28.  
  29. sub print_web_page
  30. {  
  31.   print "<html>";
  32.   print "<body>"; 
  33.   print "<br><br><br>\n";
  34.   print "Thank you for taking the time to fill out the bugreport.\n";
  35.   print "<br><br><br>\n";
  36.   print "<center>\n";
  37.   print "</body>\n";
  38.   print "</html>\n";
  39. }
  40.  
  41. sub print_file
  42. {
  43.   open(DATAFILE,">>/home/sysadm/caolan/tmp/upload-mswordview/fileinfo") || die print "Failed to open links.htm";
  44.           print DATAFILE "--begin commend--\nFilename is ";
  45.           print DATAFILE "$in{'name'}\n";
  46.         if ($in{'comments'})
  47.         {
  48.           print DATAFILE "$in{'comments'}\n";
  49.         }     
  50.         print DATAFILE "--end comment--\n";
  51.   close DATAFILE;
  52. }
  53.  
  54.